﻿Public Class MonHocDTO
    Private _maMonHoc As String
    Public Property MaMonHoc() As String
        Get
            Return _maMonHoc
        End Get
        Set(ByVal value As String)
            _maMonHoc = value
        End Set
    End Property

    Private _tenMonHoc As String
    Public Property TenMonHoc() As String
        Get
            Return _tenMonHoc
        End Get
        Set(ByVal value As String)
            _tenMonHoc = value
        End Set
    End Property

    
    Private _ngayBatDau As Date
    Public Property NgayBatDau() As Date
        Get
            Return _ngayBatDau
        End Get
        Set(ByVal value As Date)
            _ngayBatDau = value
        End Set
    End Property

    Private _ngayKetThuc As Date
    Public Property NgayKetThuc() As Date
        Get
            Return _ngayKetThuc
        End Get
        Set(ByVal value As Date)
            _ngayKetThuc = value
        End Set
    End Property


    Private _soTinChi As Integer
    Public Property SoTinChi() As Integer
        Get
            Return _soTinChi
        End Get
        Set(ByVal value As Integer)
            _soTinChi = value
        End Set
    End Property

    Public Sub New()
        _ngayBatDau = CDate("09/05/2012")
        _ngayKetThuc = CDate("05/27/2013")
    End Sub
    Public Sub New(ByVal maMonHoc As String, ByVal tenMonHoc As String, ByVal ngayBatDau As Date, ByVal ngayKetThuc As Date, ByVal soTinChi As Integer)
        Me._maMonHoc = maMonHoc
        Me._tenMonHoc = tenMonHoc
        Me._ngayBatDau = ngayBatDau
        Me._ngayKetThuc = ngayKetThuc
        Me._soTinChi = soTinChi
    End Sub

    Function MaSinhVien() As String
        Throw New NotImplementedException
    End Function

End Class
